home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / filutil / pa_st270.zip / EXAMPLE3.POM < prev    next >
Text File  |  1995-02-01  |  1KB  |  53 lines
  1. ;
  2. ; NOTE:  A quick-reference summary of POM commands appears in EXAMPLE4.POM
  3. ;
  4. ;-----------------------------------------------------------------------------
  5. ;
  6. ; Minimum line length
  7. ;
  8. MINLEN = "1"
  9. ;
  10. ; Determine where we are.  (HDRCNTR is null until first match)
  11. ;
  12. IF      $FLINE[  1  11] = "-----------" THEN HDRCNTR = HDRCNTR+
  13. ;
  14. ; Ignore start of input
  15. ;
  16. IGNORE  HDRCNTR         = ""
  17. ;
  18. ; Wait until fourth line of dashes, then start ignoring
  19. ;
  20. IGNORE  FINISHED        = "Y"
  21. IF      HDRCNTR         = "4" THEN FINISHED = "Y"
  22. ;
  23. ; Accept header lines and IBM boards only
  24. ; Note the use of "clustered ACCEPTs" here
  25. ;
  26. SET     TEST            = $FLINE[ 46  47]
  27. ACCEPT  TEST            = "IB"
  28. ACCEPT  TEST            = "--"
  29. ACCEPT  $FLINE[ 40  47] = "BR BD MA"
  30. ;
  31. ; Skip slow baud rates
  32. ;                                        
  33. IGNORE  $FLINE[ 43  44] = "30"
  34. IGNORE  $FLINE[ 43  44] = "12"
  35. ;
  36. ; Skip pay boards
  37. ;                                        
  38. IGNORE  $FLINE[ 49    ] = "Y"
  39. ;
  40. ; Skip boards without file transfer
  41. ;                                        
  42. IGNORE  $FLINE[ 50    ] = "N"
  43. ;
  44. ; Replace baud rates for modems we can't handshake with, using our v32 modem
  45. ;              
  46. CHANGE  $FLINE  " 9H "   =   " 24 "
  47. CHANGE  $FLINE  " 9P "   =   " 24 "
  48. CHANGE  $FLINE  " 9V "   =   " 24 "
  49. ;
  50. ; Output
  51. ;
  52. OUTEND  "" "" |{$FLINE}
  53.